home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Demos / Igor Demo Pro / 1 PutContentsIn Igor Pro Folder / WaveMetrics Procedures / Utilities / String Utilities / Readback ModifyStr < prev    next >
Encoding:
Text File  |  1994-02-18  |  831 b   |  32 lines  |  [TEXT/IGR0]
  1. | <Readback ModifyStr>
  2. |
  3. | Special purpose routine to help parse the string returned by TraceInfo or AxisInfo
  4. | 
  5. Function/D GetNumFromModifyStr(modstr,key,listChar,itemNo)
  6.     String modstr                | readback string from TraceInfo or AxisInfo
  7.     String key                    | keyword as used in Modify command, example: axisEnab
  8.     String listChar            | null or "{" or "(" depending on syntax
  9.     Variable itemNo            | if listChar not null then the number of the item to return
  10.     
  11.     key += "(x)="            | standard stuff
  12.     Variable v1,v2
  13.     v1= strsearch(modstr, key, 0)
  14.     if( v1 < 0 )
  15.         return NaN            | error, key not found
  16.     endif
  17.     v2= v1+strlen(key)
  18.     if( strlen(listChar) != 0 )
  19.         v2= strsearch(modstr, listChar, v2)+1
  20.         do
  21.             if( itemNo==0 )
  22.                 break
  23.             endif
  24.             v2= strsearch(modstr, ",", v2)+1
  25.             itemNo -= 1
  26.         while(1)
  27.     endif
  28.         
  29.     return str2num(modstr[v2,v2+50])
  30. End
  31.  
  32.